program SzekvencialisKereses;
uses crt;
var i,j,n,sz,x,t:integer;
    a:array [1..100] of integer;

procedure tombfeltoltes;
begin
   i:=1;
   write('Hany db szam legyen a tombben? ');
   readln(n);
   while (i<=n) do begin
      a[i]:=trunc(90*random+1);
      i:=i+1;
      end;

   writeln('A szamok rendezes elott:');
   i:=1;
   while (i<=n) do begin
      writeln('A tomb ',i,'. eleme: ',a[i]);
      i:=i+1;
      end;
   end;

procedure rendezes; Legkisebb alapján történő rendezéssel elrendezzük a tömb elemeit.
begin
   i:=1;
   while(i<n) do begin
      j:=i+1;
      while (j<=n) do begin
         if (a[j]<a[i]) then begin
            x:=a[j];
            a[j]:=a[i];
            a[i]:=x;
            end;
         j:=j+1;
         end;
      i:=i+1;
      end;
   writeln('A szamok rendezes utan:');
   i:=1;
   while (i<=n) do begin
      writeln('A tomb ',i,'. eleme: ',a[i]);
      i:=i+1;
      end;
   end;

procedure kereses;
begin
   write('A keresett szam: ');
   readln(sz); Bekérjük a keresett számot.
   t:=0; t = találatok száma, melyet kezdetben 0-ra állítunk
   i:=1;
   while (i<=n) do begin
      if (sz<a[i]) then break; Mivel rendezett tömbről van szó, ezért megvizsgáljuk, hogy a tömb aktuálisan vizsgált eleme nagyobb e, mint a keresendő szám. Ha igen, akkor a további vizsgálat fölösleges, ezért break-el megszakítjuk a további vizsgálódást.
      if (sz=a[i]) then begin Ha az előbbi feltétel nem teljesül, azaz az aktuálisan vizsgált tömb elem kisebb, vagy egyenlő mint a keresett szám, akkor megvizsgáljuk, hogy van e egyezés. Ha van, kiírjuk a találat indexét és a találatok számát növeljük eggyel.
         t:=t+1;
         writeln('A talalat a sorozat ',i,'. eleme');
         end;
      i:=i+1;
      end;
   writeln('A talalatok szama: ',t);
   end;

BEGIN
   clrscr;
   tombfeltoltes;
   rendezes;
   kereses;
   readkey;
END.